clc
clear
format long

r = 2;
L = 4;
M = 4;
x = [0 1];
system_no = 1;
number_system(system_no,r,L,M,x);

r = 2;
L = 3;
M = 5;
x = [0 1 2];
system_no = 2;
number_system(system_no,r,L,M,x);

r = 4;
L = 7;
M = 0;
x = [0 1 2 3];
system_no = 3;
number_system(system_no,r,L,M,x);

r = 4;
L = 7;
M = 2;
x = [0 1 2];
system_no = 4;
number_system(system_no,r,L,M,x);

r = 4;
L = 5;
M = 2;
x = [0 1 2 3 4 5];
system_no = 5;
number_system(system_no,r,L,M,x);
